www.gusucode.com > 云网互动影视系统(12套模版和资源联盟) 6.2 > 云网互动影视系统(12套模版和资源联盟) 6.2.4/免费版/Admin/Collect/Admin_Collect.asp
<html>
<head>
<META content=ywnt,云网互动影视管理系统 name=keywords>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>云网互动影视6.0--采集管理</title>
<LINK href="../css/css.css" type=text/css rel=stylesheet>
</head>
<BODY leftMargin=0 topMargin=0 scroll=yes MARGINHEIGHT="0" MARGINWIDTH="0">
<!--#include file="../../Conn.asp" -->
<!--#include file="Conn.asp" -->
<!--#include file="../YWNT_TMS_Inc/YWNT_TMS_Function.asp" -->
<!--#include file="../YWNT_TMS_inc/YWNT_TMS_Page.asp" -->
<!--#include file="Inc/Function.asp" -->
<%
'===================================================================================================================
'软件名称：云网影视管理系统
'Copyright (C) 2002-2007 ywnt.net All rights reserved.
'产品咨询QQ：489234,2813712
'程序版权：云网互动科技有限公司
'程序开发：云网互动科技有限公司
'官方网站：http://www.ywnt.net
'郑重声明:
' 1、免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接,商业版本无此要求;
' 2、任何个人或组织不得在授权允许的情况下删除、修改、拷贝本软件及其他副本上一切关于版权的信息；
' 3、云网互动科技有限公司保留此软件的法律追究权利
'===================================================================================================================
Call CheckLogin("Collect")%>
<table class=table cellspacing=1 cellpadding=3 width="98%" align=center border=0>
<tbody>
<tr>
<td class=xingmu>采集管理</td>
</tr>
<tr>
<td class="hback"><a href="Admin_Collect.asp">采集管理首页</a> | <a href="Admin_Collect.asp?Action=Add">采集添加</a> | <a href="Admin_Collect.asp?WcafesAudit=0">采集入库</a></td>
</tr>
</tbody>
</table>
<% Action=Trim(request.QueryString("Action"))
Select Case Action
Case "Add"
call Add()
Case "Add2"
call Add2()
Case "Add3"
call Add3()
Case "Add4"
call Add4()
Case "AddSever"
Session("ListUrl")=""
Session("selEncoding")=""
Session("ListCode")=""
Session("NewsCode")=""
Call AddLog("添加采集栏目",9)
call Admin_ShowErr("<li>采集栏目添加成功</li>","Admin_Collect.asp",1)
Case "Edit"
call Edit()
Case "Edit2"
call Edit2()
Case "Edit3"
call Edit3()
Case "Edit4"
call Edit4()
Case "EditSever"
Session("ListUrl")=""
Session("selEncoding")=""
Session("ListCode")=""
Session("NewsCode")=""
Call AddLog("修改采集栏目",9)
call Admin_ShowErr("<li>采集栏目修改成功</li>","Admin_Collect.asp",1)
Case "Del"
call Del()
Case "Copy"
call Copy()
Case else
call List()
End Select
sub List()
Dim int_RPP
int_RPP=GetConfig("PageNumber") '设置每页显示数目%>
<table class=table cellspacing=1 cellpadding=3 width="98%" align=center border=0>
<tbody>
<tr>
<td width="5%" align="center" class=xingmu>ID</td>
<td align="center" class=xingmu>采集项目名称</td>
<td width="25%" align="center" class=xingmu>最后一次采集时间</td>
<td width="20%" align="center" class=xingmu>操作</td>
</tr>
<% Set Rs = server.CreateObject(YWNT_TMS_RS)
sql="Select ID,CollectName,CollectTime from Collect_Class"
Rs.open sql,Connx,1,1
if Rs.eof then
Response.Write"<TR class=""hback""><TD colspan=""4"" class=""hback"" height=""40"">没有记录。</TD></TR>"
else
Rs.PageSize=int_RPP
cPageNo=Request.QueryString("Page")
If cPageNo="" Then cPageNo = 1
If not isnumeric(cPageNo) Then cPageNo = 1
cPageNo = Clng(cPageNo)
If cPageNo>Rs.PageCount Then cPageNo=Rs.PageCount
If cPageNo<=0 Then cPageNo=1
Rs.AbsolutePage=cPageNo
for i=1 to int_RPP
if Rs.eof Then exit For %>
<tr>
<td height=32 align="center" class="hback"><%=RS("ID")%></td>
<td height=32 class="hback"><%=RS("CollectName")%></td>
<td height=32 align="center" class="hback"><%=RS("CollectTime")%></td>
<td align="center" class="hback"><A href="Collecting.asp?ID=<%= RS("ID") %>">采集</A>｜<A href="Admin_Collect.asp?Action=Edit&ID=<%=RS("ID")%>">修改</A>｜<A href="Admin_Collect.asp?Action=Copy&ID=<%= RS("ID") %>">复制</A>｜<A href="Admin_Collect.asp?Action=Del&ID=<%=RS("ID")%>">删除</A></td>
</tr>
<%Rs.MoveNext
next
end if%>
<tr align="right">
<td height=32 colspan="4" class="hback"><% response.Write fPageCount(Rs,cPageNo) %></td>
</tr>
</tbody>
</table>
<%Rs.Close
set Rs = nothing
end sub
sub Del()
connx.execute "delete from Collect_Class WHERE ID="&Request.QueryString("ID")
Call AddLog("删除采集栏目",9)
call Admin_ShowErr("<li>采集用户删除成功！</li>","Admin_Collect.asp",1)
end sub
sub Add()%>
<table class=table cellspacing=1 cellpadding=3 width="98%" align=center border=0>
<form name="Form" action="Admin_Collect.asp?Action=Add2" method="post">
<tbody>
<tr>
<td colspan="2" class=xingmu>采集项目添加</td>
</tr>
<tr>
<td width="21%" height=32 align="right" class="hback">采集名称：</td>
<td height=7 class="hback"><input name="CollectName" type="text" id="CollectName" size="40"></td>
</tr>
<tr>
<td height=32 align="right" class="hback">目标编码：</td>
<td height=7 class="hback"><select name="selEncoding" size="1">
<option value="GB2312" selected="selected">GB2312</option>
<option value="UTF-8">UTF-8</option>
<option value="BIG5">BIG5</option>
</select></td>
</tr>
<tr>
<td height=32 align="right" class="hback">分页设置：</td>
<td height=32 class="hback"><input type="radio" value="0" name="ListPaingType" checked="checked" onClick="ChangeCutPara(0);">
不分页
<input type="radio" value="1" name="ListPaingType" onClick="ChangeCutPara(1);">
批量分页
<input type="radio" value="2" name="ListPaingType" onClick="ChangeCutPara(2);">
手动分页
<input type="radio" value="3" name="ListPaingType" onClick="ChangeCutPara(3);">
按ID直接采集内容</td>
</tr>
<tr ID="IndexCutPage">
<td height=32 align="right" class="hback">采集对象页：</td>
<td height=7 class="hback"><input name="ListPaingStr" type="text" size="60"></td>
</tr>
<tr ID="HandCutPage" style="display:none">
<td height=32 align="right" class="hback"><span id="CutPageName"></span>：</td>
<td height=7 class="hback"><input name="ListPaingStr2" type="text" value="" size="60">
分页代码 <font color=red>{$ID}</font><br>
格式：http://www.ywnt.net/list.asp?page={$ID}<br>
生成范围：
<input name="ListPaingID1" type="text" value="0" size="4">
To
<input name="ListPaingID2" type="text" value="0" size="4">
例如：1 - 9</td>
</tr>
<tr ID="ListContent" style="display:none">
<td height=32 align="right" class="hback">手动分页：</td>
<td height=7 class="hback"><textarea name="ListPaingStr3" cols="60" rows="7"></textarea></td>
</tr>
<tr>
<td height=32 align="right" class="hback">采集参数：</td>
<td height=7 class="hback"><input name="SaveFiles" type="checkbox" value="1">
保存图片
<input name="CollecOrder" type="checkbox" value="1">
倒序采集</td>
</tr>
<tr>
<td height=32 align="right" class="hback">过滤选项：</td>
<td height=16 class="hback"><input name="Script_Iframe" type="checkbox" value="1">
Iframe
<input name="Script_Object" type="checkbox" value="1">
Object
<input name="Script_Script" type="checkbox" value="1">
Script
<input name="Script_Div" type="checkbox" value="1">
Div
<input name="Script_Class" type="checkbox" value="1">
Class
<input name="Script_Table" type="checkbox" value="1">
Table
<input name="Script_Tr" type="checkbox" value="1">
Tr
<input name="Script_Span" type="checkbox" value="1">
Span<br>
<input name="Script_Img" type="checkbox" value="1">
Img
<input name="Script_Font" type="checkbox" value="1">
Font
<input name="Script_A" type="checkbox" value="1">
A
<input name="Script_Html" type="checkbox" value="1">
Html
<input name="Script_Td" type="checkbox" value="1">
Td </td>
</tr>
<tr>
<td height=32 align="right" class="hback">重复采集影片设置：</td>
<td height=7 class="hback"><input type="radio" value="0" name="RepeatCollect" checked>
和采集库比较不重复采集 <input type="radio" value="1" name="RepeatCollect">
和影片库比较不重复采集</td>
</tr>
<tr>
<td height=32 colspan="2" align="center" class="hback"><input type="submit" name="Submit" value="下一步"></td>
</tr>
</tbody>
</form>
</table>
<script language="JavaScript">
function ChangeCutPara(Flag)
{
switch (Flag)
{
case 0 :
document.all.IndexCutPage.style.display='';
document.all.HandCutPage.style.display='none';
document.all.ListContent.style.display='none';
break;
case 1 :
document.all.IndexCutPage.style.display='none';
document.all.HandCutPage.style.display='';
document.all.ListContent.style.display='none';
document.getElementById("CutPageName").innerHTML='批量分页';
break;
case 2 :
document.all.IndexCutPage.style.display='none';
document.all.HandCutPage.style.display='none';
document.all.ListContent.style.display='';
break;
case 3 :
document.all.IndexCutPage.style.display='none';
document.all.HandCutPage.style.display='';
document.all.ListContent.style.display='none';
document.getElementById("CutPageName").innerHTML='按ID采集内容页';
break;
default :
document.all.IndexCutPage.style.display='none';
document.all.HandCutPage.style.display='none';
document.all.ListContent.style.display='none';
break;
}
}
</script>
<%end sub
sub Add2()
Select Case Request.Form("ListPaingType")
Case 0
ListUrl=request.Form("ListPaingStr")
Case 1,3
ListUrl=Replace(request.Form("ListPaingStr2"),"{$ID}",CStr(request.Form("ListPaingID1")))
Case 2
If Instr(request.Form("ListPaingStr3"),"|")>0 Then
ListUrl=Left(request.Form("ListPaingStr3"),Instr(request.Form("ListPaingStr3"),"|")-1)
Else
ListUrl=request.Form("ListPaingStr3")
End If
End Select
ListCode=GetHttpPage(ListUrl,Request.Form("selEncoding"))
If ListCode=False Then
call Admin_ShowErr("<li>在获取:"&ListUrl&"网页源码时发生错误！</li>","javascript:history.go(-1)",0)
End If
Session("ListUrl")=ListUrl
Session("selEncoding")=Request.Form("selEncoding")
Session("ListCode")=ListCode
Set Rs=Server.CreateObject(YWNT_TMS_RS)
sql="select * from Collect_Class"
Rs.open sql,Connx,1,3
RS.Addnew
RS("CollectName")=Request.Form("CollectName")
RS("selEncoding")=Request.Form("selEncoding")
RS("ListPaingType")=Request.Form("ListPaingType")
RS("ListPaingStr")=Request.Form("ListPaingStr")
RS("ListPaingStr2")=Request.Form("ListPaingStr2")
RS("ListPaingID1")=Request.Form("ListPaingID1")
RS("ListPaingID2")=Request.Form("ListPaingID2")
RS("ListPaingStr3")=Request.Form("ListPaingStr3")
RS("Script_Iframe")=Request.Form("Script_Iframe")
RS("Script_Object")=Request.Form("Script_Object")
RS("Script_Script")=Request.Form("Script_Script")
RS("Script_Div")=Request.Form("Script_Div")
RS("Script_Class")=Request.Form("Script_Class")
RS("Script_Table")=Request.Form("Script_Table")
RS("Script_Tr")=Request.Form("Script_Tr")
RS("Script_Span")=Request.Form("Script_Span")
RS("Script_Img")=Request.Form("Script_Img")
RS("Script_Font")=Request.Form("Script_Font")
RS("Script_A")=Request.Form("Script_A")
RS("Script_Html")=Request.Form("Script_Html")
RS("Script_Td")=Request.Form("Script_Td")
RS("SaveFiles")=Request.Form("SaveFiles")
RS("CollecOrder")=Request.Form("CollecOrder")
RS("RepeatCollect")=Request.Form("RepeatCollect")
RS.Update
ID=RS("ID")
RS.close
set RS=nothing
if Request.Form("ListPaingType")=3 then
Response.Redirect "Admin_Collect.asp?Action=Add3&ListPaingType="&Request.Form("ListPaingType")&"&ID="&ID
end if%>
<table class=table cellspacing=1 cellpadding=3 width="98%" align=center border=0>
<form name="Form" action="Admin_Collect.asp?Action=Add3" method="post">
<tbody>
<tr>
<td colspan="2" class=xingmu>采集列表连接设置</td>
</tr>
<tr>
<td width="21%" height=32 align="right" class="hback">影片列表开始代码：</td>
<td height=7 class="hback"> 输入区域： <span onClick="if(document.Form.LsString.rows>2)document.Form.LsString.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.LsString.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
<textarea name="LsString" cols="70" rows="7"></textarea></td>
</tr>
<tr>
<td height=32 align="right" class="hback">影片列表结束代码：</td>
<td height=7 class="hback"> 输入区域： <span onClick="if(document.Form.LoString.rows>2)document.Form.LoString.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.LoString.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
<textarea name="LoString" cols="70" rows="7"></textarea></td>
</tr>
<tr>
<td height=32 align="right" class="hback">影片链接开始代码：</td>
<td height=32 class="hback"> 输入区域： <span onClick="if(document.Form.HsString.rows>2)document.Form.HsString.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.HsString.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
<textarea name="HsString" cols="70" rows="7"></textarea></td>
</tr>
<tr>
<td height=32 align="right" class="hback">影片链接结束代码：</td>
<td height=7 class="hback"> 输入区域： <span onClick="if(document.Form.HoString.rows>2)document.Form.HoString.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.HoString.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
<textarea name="HoString" cols="70" rows="7"></textarea></td>
</tr>
<tr>
<td height=32 colspan="2" align="center" class="hback"><input type="hidden" name="ID" id="ID" value="<%=ID%>">
<input type="button" name="button" value="上一步" onClick="window.location.href='javascript:history.go(-1)'">
<input name="Submit" type="submit" id="Submit" value="下一步"></td>
</tr>
</tbody>
</form>
</table>
<%end sub
sub Add3()
if Request.QueryString("ListPaingType")<>"" then
Session("NewsCode")=Session("ListCode")
ID=Request.QueryString("ID")
else
ListCode=GetBody(Session("ListCode"),request.Form("LsString"),request.Form("LoString"))
NewsArrayCode=GetArray(ListCode,request.Form("HsString"),request.Form("HoString"))
Select Case NewsArrayCode
Case False
call Admin_ShowErr("<li>在获取链接列表时出错。</li>","javascript:history.go(-1)",0)
Case Else
NewsArray=Split(NewsArrayCode,"$Array$")
UrlTest=NewsArray(0)
UrlTest=DefiniteUrl(UrlTest,Session("ListUrl"))
NewsCode=GetHttpPage(UrlTest,Session("selEncoding"))
Session("NewsCode")=NewsCode
Session("ListUrl")=UrlTest
End Select
Set Rs=Server.CreateObject(YWNT_TMS_RS)
sql="select * from Collect_Class Where ID="&Request.Form("ID")&""
Rs.open sql,Connx,1,3
RS("LsString")=Request.Form("LsString")
RS("LoString")=Request.Form("LoString")
RS("HsString")=Request.Form("HsString")
RS("HoString")=Request.Form("HoString")
RS.Update
ID=RS("ID")
RS.close
set RS=nothing
end if%>
<table class=table cellspacing=1 cellpadding=3 width="98%" align=center border=0>
<form name="Form" action="Admin_Collect.asp?Action=Add4" method="post">
<tbody>
<tr>
<td colspan="2" class=xingmu>采集内容与影片地址设置</td>
</tr>
<tr>
<td width="21%" height=32 align="right" class="hback">影片名称开始代码：</td>
<td height=7 class="hback"> 输入区域： <span onClick="if(document.Form.Htitle.rows>2)document.Form.Htitle.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.Htitle.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
<textarea name="Htitle" cols="70" rows="7"></textarea></td>
</tr>
<tr>
<td height=32 align="right" class="hback">影片名称结束代码：</td>
<td height=7 class="hback"> 输入区域： <span onClick="if(document.Form.Ftitle.rows>2)document.Form.Ftitle.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.Ftitle.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
<textarea name="Ftitle" cols="70" rows="7"></textarea></td>
</tr>
<tr>
<td height=32 align="right" class="hback">影片演员开始代码：</td>
<td height=32 class="hback"> 输入区域： <span onClick="if(document.Form.Hname.rows>2)document.Form.Hname.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.Hname.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
<textarea name="Hname" cols="70" rows="7"></textarea></td>
</tr>
<tr>
<td height=32 align="right" class="hback">影片演员结束代码：</td>
<td height=7 class="hback"> 输入区域： <span onClick="if(document.Form.Fname.rows>2)document.Form.Fname.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.Fname.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
<textarea name="Fname" cols="70" rows="7"></textarea></td>
</tr>
<tr>
<td height=32 align="right" class="hback">影片图片开始代码：</td>
<td height=7 class="hback"> 输入区域： <span onClick="if(document.Form.Htupian.rows>2)document.Form.Htupian.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.Htupian.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
<textarea name="Htupian" cols="70" rows="7" id="Htupian"></textarea></td>
</tr>
<tr>
<td height=32 align="right" class="hback">影片图片结束代码：</td>
<td height=7 class="hback"> 输入区域： <span onClick="if(document.Form.Ftupian.rows>2)document.Form.Ftupian.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.Ftupian.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
<textarea name="Ftupian" cols="70" rows="7" id="Ftupian"></textarea></td>
</tr>
<tr>
<td height=32 align="right" class="hback">影片栏目设置：</td>
<td height=7 class="hback"><input type="radio" value="0" name="ClassType" onClick="ChangeCutPara(0,'CollectClassN','HClassN','FClassN');" checked>
固定栏目 <input type="radio" value="1" name="ClassType" onClick="ChangeCutPara(1,'CollectClassN','HClassN','FClassN');">
按对应栏目自动转换</td>
</tr>
<tr id="CollectClassN">
<td height=32 align="right" class="hback">选择栏目：</td>
<td height=7 class="hback"><select name="CollectClass" id="CollectClass">
<%Response.Write EditClassID(0,"","")%>
</select></td>
</tr>
<tr id="HClassN">
<td height=32 align="right" class="hback">影片栏目开始代码：</td>
<td height=7 class="hback"> 输入区域： <span onClick="if(document.Form.HClass.rows>2)document.Form.HClass.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.HClass.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
<textarea name="HClass" cols="70" rows="7" id="HClass"></textarea></td>
</tr>
<tr id="FClassN">
<td height=32 align="right" class="hback">影片栏目结束代码：</td>
<td height=7 class="hback"> 输入区域： <span onClick="if(document.Form.FClass.rows>2)document.Form.FClass.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.FClass.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
<textarea name="FClass" cols="70" rows="7" id="FClass"></textarea></td>
</tr>
<tr>
<td height=32 align="right" class="hback">影片地区设置：</td>
<td height=7 class="hback"><input type="radio" value="0" name="RegionType" onClick="ChangeCutPara(0,'CollectRegionN','HRegionN','FRegionN');" checked>
固定地区 <input type="radio" value="1" name="RegionType" onClick="ChangeCutPara(1,'CollectRegionN','HRegionN','FRegionN');">
按对应地区自动转换</td>
</tr>
<tr id="CollectRegionN">
<td height=32 align="right" class="hback">选择地区：</td>
<td height=7 class="hback"><%call MovieRegion("CollectRegion","")%></td>
</tr>
<tr id="HRegionN">
<td height=32 align="right" class="hback">影片地区开始代码：</td>
<td height=7 class="hback"> 输入区域： <span onClick="if(document.Form.HRegion.rows>2)document.Form.HRegion.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.HRegion.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
<textarea name="HRegion" cols="70" rows="7" id="HRegion"></textarea></td>
</tr>
<tr id="FRegionN">
<td height=32 align="right" class="hback">影片地区结束代码：</td>
<td height=7 class="hback"> 输入区域： <span onClick="if(document.Form.FRegion.rows>2)document.Form.FRegion.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.FRegion.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
<textarea name="FRegion" cols="70" rows="7" id="FRegion"></textarea></td>
</tr>
<tr>
<td height=32 align="right" class="hback">影片介绍开始代码：</td>
<td height=7 class="hback"> 输入区域： <span onClick="if(document.Form.Hcontent.rows>2)document.Form.Hcontent.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.Hcontent.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
<textarea name="Hcontent" cols="70" rows="7" id="Hcontent"></textarea></td>
</tr>
<tr>
<td height=32 align="right" class="hback">影片介绍结束代码：</td>
<td height=7 class="hback"> 输入区域： <span onClick="if(document.Form.Fcontent.rows>2)document.Form.Fcontent.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.Fcontent.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
<textarea name="Fcontent" cols="70" rows="7" id="Fcontent"></textarea></td>
</tr>
<tr>
<td height=32 align="right" class="hback">影片列表范围：</td>
<td height=7 class="hback"><input type="radio" value="0" name="ScopeOn" checked="checked" onClick="ScopeN1.style.display='none';ScopeN2.style.display='none'">
关闭 <input type="radio" value="1" name="ScopeOn" onClick="ScopeN1.style.display='';ScopeN2.style.display=''">
开启</td>
</tr>
<tr id="ScopeN1" style="display:none;">
<td height=32 align="right" class="hback">播放列表开始代码：</td>
<td height=7 class="hback"> 输入区域： <span onClick="if(document.Form.Hscope.rows>2)document.Form.Hscope.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.Hscope.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
<textarea name="Hscope" cols="70" rows="7" id="Hscope"></textarea></td>
</tr>
<tr id="ScopeN2" style="display:none;">
<td height=32 align="right" class="hback">播放列表结束代码：</td>
<td height=7 class="hback"> 输入区域： <span onClick="if(document.Form.Fscope.rows>2)document.Form.Fscope.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.Fscope.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
<textarea name="Fscope" cols="70" rows="7" id="Fscope"></textarea></td>
</tr>
<tr>
<td height=32 align="right" class="hback">播放链接开始代码：</td>
<td height=7 class="hback"> 输入区域： <span onClick="if(document.Form.Hweburl.rows>2)document.Form.Hweburl.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.Hweburl.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
<textarea name="Hweburl" cols="70" rows="7" id="Hweburl"></textarea></td>
</tr>
<tr>
<td height=32 align="right" class="hback">播放链接结束代码：</td>
<td height=7 class="hback"> 输入区域： <span onClick="if(document.Form.Fweburl.rows>2)document.Form.Fweburl.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.Fweburl.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
<textarea name="Fweburl" cols="70" rows="7" id="Fweburl"></textarea></td>
</tr>
<tr>
<td height=32 align="right" class="hback">特殊播放链接处理：</td>
<td height=7 class="hback"><input type="radio" value="0" name="urlType" checked="checked" onClick="Listurl2.style.display='none';Listurl3.style.display='none'" >
不作设置
<input type="radio" value="1" name="urlType" onClick="Listurl2.style.display='';Listurl3.style.display=''" />
替换地址<br> <font color="red">对于使用了JavaScript:openwindow形式的连接请使用以下格式处理:<br>
脚本连接:内容[变量] 内容 如:javaScript:OpenWnd([变量])<br>
实际连接:内容[变量] 内容 如:play.asp?id=[变量]</font></td>
</tr>
<tr id="Listurl2" style="display:none;">
<td height=32 align="right" class="hback">要替换的地址：</td>
<td height=7 class="hback"> 输入区域： <span onClick="if(document.Form.Rurl.rows>2)document.Form.Rurl.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.Rurl.rows+=1" style='cursor:hand'><b>扩大</b></span> 可用标签：<font onmouseover="getActiveText(document.Form.Rurl);" onClick="addTag('[变量]')" style="CURSOR: hand"><b>[变量]</b></font>
<textarea name="Rurl" cols="70" rows="4" id="Rurl"></textarea></td>
</tr>
<tr id="Listurl3" style="display:none;">
<td height=32 align="right" class="hback">替换为的地址：</td>
<td height=7 class="hback"> 输入区域： <span onClick="if(document.Form.Reurl.rows>2)document.Form.Reurl.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.Reurl.rows+=1" style='cursor:hand'><b>扩大</b></span> 可用标签：<font onmouseover="getActiveText(document.Form.Reurl);" onClick="addTag('[变量]')" style="CURSOR: hand"><b>[变量]</b></font>
<textarea name="Reurl" cols="70" rows="4" id="Reurl"></textarea></td>
</tr>
<tr>
<td height=32 align="right" class="hback">影片地址开始代码：</td>
<td height=7 class="hback"> 输入区域： <span onClick="if(document.Form.Hpurl.rows>2)document.Form.Hpurl.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.Hpurl.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
<textarea name="Hpurl" cols="70" rows="7" id="Hpurl"></textarea></td>
</tr>
<tr>
<td height=32 align="right" class="hback">影片地址结束代码：</td>
<td height=7 class="hback"> 输入区域： <span onClick="if(document.Form.Fpurl.rows>2)document.Form.Fpurl.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.Fpurl.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
<textarea name="Fpurl" cols="70" rows="7" id="Fpurl"></textarea></td>
</tr>
<tr>
<td height=32 colspan="2" align="center" class="hback"><input name="button" type="button" id="button" onClick="window.location.href='javascript:history.go(-1)'" value="上一步">
<input type="hidden" name="ID" id="ID" value="<%=ID%>"><input name="Submit" type="submit" id="Submit" value="下一步"></td>
</tr>
</tbody>
</form>
</table>
<script language="JavaScript">
ChangeCutPara(0,'CollectClassN','HClassN','FClassN');
ChangeCutPara(0,'CollectRegionN','HRegionN','FRegionN');
function ChangeCutPara(Flag,name1,name2,name3)
{
switch (Flag)
{
case 0 :
document.getElementById(name1).style.display="block";
document.getElementById(name2).style.display="none";
document.getElementById(name3).style.display="none";
break;
case 1 :
document.getElementById(name1).style.display="none";
document.getElementById(name2).style.display="block";
document.getElementById(name3).style.display="block";
break;
default :
document.getElementById(name1).style.display="none";
document.getElementById(name2).style.display="none";
document.getElementById(name3).style.display="none";
break;
}
}
</script>
<%end sub
sub Add4()
Set Rs=Server.CreateObject(YWNT_TMS_RS)
sql="select * from Collect_Class Where ID="&Request.Form("ID")&""
Rs.open sql,Connx,1,3
RS("Htitle")=Request.Form("Htitle")
RS("Ftitle")=Request.Form("Ftitle")
RS("Hname")=Request.Form("Hname")
RS("Fname")=Request.Form("Fname")
RS("Htupian")=Request.Form("Htupian")
RS("Ftupian")=Request.Form("Ftupian")
RS("ClassType")=Request.Form("ClassType")
RS("CollectClass")=Request.Form("CollectClass")
RS("HClass")=Request.Form("HClass")
RS("FClass")=Request.Form("FClass")
RS("RegionType")=Request.Form("RegionType")
RS("CollectRegion")=Request.Form("CollectRegion")
RS("HRegion")=Request.Form("HRegion")
RS("FRegion")=Request.Form("FRegion")
RS("Hcontent")=Request.Form("Hcontent")
RS("Fcontent")=Request.Form("Fcontent")
RS("ScopeOn")=Request.Form("ScopeOn")
RS("Hscope")=Request.Form("Hscope")
RS("Fscope")=Request.Form("Fscope")
RS("Hweburl")=Request.Form("Hweburl")
RS("Fweburl")=Request.Form("Fweburl")
RS("urlType")=Request.Form("urlType")
RS("Rurl")=Request.Form("Rurl")
RS("Reurl")=Request.Form("Reurl")
RS("Hpurl")=Request.Form("Hpurl")
RS("Fpurl")=Request.Form("Fpurl")
RS.Update
ID=RS("ID")
RS.close
set RS=nothing
title=GetBody(Session("NewsCode"),request.Form("Htitle"),request.Form("Ftitle"))
name=GetBody(Session("NewsCode"),request.Form("Hname"),request.Form("Fname"))
tupian=GetBody(Session("NewsCode"),request.Form("Htupian"),request.Form("Ftupian"))
if request.Form("ClassType")=1 then
typeid=GetBody(Session("NewsCode"),request.Form("HClass"),request.Form("FClass"))
typeidname=typeid
else
typeid=Request.Form("CollectClass")
typeidname=CollectClassName(typeid)
end if
if request.Form("RegionType")=1 then
region=GetBody(Session("NewsCode"),request.Form("HRegion"),request.Form("FRegion"))
regionname=region
else
region=Request.Form("CollectRegion")
regionname=CollectRegionName(region)
end if
content=GetBody(Session("NewsCode"),request.Form("Hcontent"),request.Form("Fcontent"))
if Request.Form("ScopeOn")=1 then
Urlscope=GetBody(Session("NewsCode"),request.Form("Hscope"),request.Form("Fscope"))
weburl=GetArray(Urlscope,request.Form("Hweburl"),request.Form("Fweburl"))
else
weburl=GetArray(Session("NewsCode"),request.Form("Hweburl"),request.Form("Fweburl"))
end if%>
<table class=table cellspacing=1 cellpadding=3 width="98%" align=center border=0>
<form name="form" action="Admin_Collect.asp?Action=AddSever" method="post">
<tbody>
<tr>
<td colspan="2" class=xingmu>采集测试效果</td>
</tr>
<tr>
<td width="21%" height=31 align="right" class="hback">影片名称：</td>
<td height=31 class="hback"><%=title%></td>
</tr>
<tr>
<td height=32 align="right" class="hback">影片演员：</td>
<td height=7 class="hback"><%=name%></td>
</tr>
<tr>
<td height=32 align="right" class="hback">影片图片：</td>
<td height=32 class="hback"><%=tupian%></td>
</tr>
<tr>
<td height=32 align="right" class="hback">影片栏目：</td>
<td height=32 class="hback"><%=typeidname%></td>
</tr>
<tr>
<td height=32 align="right" class="hback">影片地区：</td>
<td height=32 class="hback"><%=regionname%></td>
</tr>
<tr>
<td height=32 align="right" class="hback">影片介绍：</td>
<td height=7 class="hback"><%=content%></td>
</tr>
<%If weburl<>False Then
webArray=Split(weburl,"$Array$")
For i=0 To Ubound(webArray)
UrlTest=webArray(i)
if Request.Form("UrlType")=1 then
Keyurl = Split(Request.Form("Rurl"),"[变量]",-1,1)
urli=GetBody(UrlTest,Keyurl(0),Keyurl(1))
if urli=False then
Exit For
end if
UrlTest=Replace(Request.Form("Reurl"),"[变量]",urli)
end if
UrlTest=DefiniteUrl(UrlTest,Session("ListUrl"))
webCode=GetHttpPage(UrlTest,Session("selEncoding"))
url=GetBody(webCode,Request.Form("Hpurl"),request.Form("Fpurl"))%>
<tr>
<td height=32 align="right" class="hback">播放列表：</td>
<td height=7 class="hback"><%=UrlTest%></td>
</tr>
<tr>
<td height=32 align="right" class="hback">影片地址：</td>
<td height=7 class="hback"><%=url%></td>
</tr>
<%Next
End if%>
<tr>
<td height=32 colspan="2" align="center" class="hback"><input name="button" type="button" id="button" onClick="window.location.href='javascript:history.go(-1)'" value="上一步">
<input name="Submit" type="submit" id="Submit" value="完 成"></td>
</tr>
</tbody>
</form>
</table>
<%end sub
sub Edit()
Set Rs=Server.CreateObject(YWNT_TMS_RS)
sql="select ID,CollectName,selEncoding,ListPaingStr,ListPaingType,ListPaingStr2,ListPaingID1,ListPaingID2,ListPaingStr3,Script_Iframe,Script_Object,Script_Script,Script_Div,Script_Class,Script_Table,Script_Tr,Script_Span,Script_Img,Script_Font,Script_A,Script_Html,Script_Td,SaveFiles,CollecOrder,RepeatCollect from Collect_Class where id="&Request.QueryString("id")
RS.open sql,connx,1,1
ID=RS("ID")
CollectName=RS("CollectName")
selEncoding=RS("selEncoding")
ListPaingStr=RS("ListPaingStr")
ListPaingType=RS("ListPaingType")
ListPaingStr2=RS("ListPaingStr2")
ListPaingID1=RS("ListPaingID1")
ListPaingID2=RS("ListPaingID2")
ListPaingStr3=RS("ListPaingStr3")
Script_Iframe=RS("Script_Iframe")
Script_Object=RS("Script_Object")
Script_Script=RS("Script_Script")
Script_Div=RS("Script_Div")
Script_Class=RS("Script_Class")
Script_Table=RS("Script_Table")
Script_Tr=RS("Script_Tr")
Script_Span=RS("Script_Span")
Script_Img=RS("Script_Img")
Script_Font=RS("Script_Font")
Script_A=RS("Script_A")
Script_Html=RS("Script_Html")
Script_Td=RS("Script_Td")
SaveFiles=RS("SaveFiles")
CollecOrder=RS("CollecOrder")
RepeatCollect=RS("RepeatCollect")
RS.close
set RS=nothing%>
<table class=table cellspacing=1 cellpadding=3 width="98%" align=center border=0>
<form name="Form" action="Admin_Collect.asp?Action=Edit2" method="post">
<tbody>
<tr>
<td colspan="2" class=xingmu>采集项目修改</td>
</tr>
<tr>
<td width="21%" height=32 align="right" class="hback">采集名称：</td>
<td height=7 class="hback"><input name="CollectName" type="text" id="CollectName" value="<%=CollectName%>" size="40"></td>
</tr>
<tr>
<td height=32 align="right" class="hback">目标编码：</td>
<td height=7 class="hback"><select name="selEncoding" size="1">
<option value="GB2312" <%if selEncoding="GB2312" then Response.Write"selected"%>>GB2312</option>
<option value="UTF-8" <%if selEncoding="UTF-8" then Response.Write"selected"%>>UTF-8</option>
<option value="BIG5" <%if selEncoding="BIG5" then Response.Write"selected"%>>BIG5</option>
</select></td>
</tr>
<tr>
<td height=32 align="right" class="hback">分页设置：</td>
<td height=32 class="hback"><input type="radio" value="0" name="ListPaingType" checked="checked" onClick="ChangeCutPara(0);" <% if ListPaingType=0 then Response.Write "checked" %>>
不分页
<input type="radio" value="1" name="ListPaingType" onClick="ChangeCutPara(1);" <% if ListPaingType=1 then Response.Write "checked" %>>
批量分页
<input type="radio" value="2" name="ListPaingType" onClick="ChangeCutPara(2);" <% if ListPaingType=2 then Response.Write "checked" %>>
手动分页
<input type="radio" value="3" name="ListPaingType" onClick="ChangeCutPara(3);" <% if ListPaingType=3 then Response.Write "checked" %>>
按ID直接采集内容页</td>
</tr>
<tr ID="IndexCutPage">
<td height=32 align="right" class="hback">采集对象页：</td>
<td height=7 class="hback"><input name="ListPaingStr" type="text" size="60" value="<%=ListPaingStr%>"></td>
</tr>
<tr ID="HandCutPage">
<td height=32 align="right" class="hback"><span id="CutPageName"></span>：</td>
<td height=7 class="hback"><input name="ListPaingStr2" type="text" value="<%=ListPaingStr2%>" size="60">
分页代码 <font color=red>{$ID}</font><br>
格式：http://www.ywnt.net/list.asp?page={$ID}<br>
生成范围：
<input name="ListPaingID1" type="text" size="4" value="<%=ListPaingID1%>">
To
<input name="ListPaingID2" type="text" size="4" value="<%=ListPaingID2%>">
例如：1 - 9</td>
</tr>
<tr ID="ListContent">
<td height=32 align="right" class="hback">手动分页：</td>
<td height=7 class="hback"><textarea name="ListPaingStr3" cols="60" rows="7"><%=ListPaingStr3%></textarea></td>
</tr>
<tr>
<td height=32 align="right" class="hback">采集参数：</td>
<td height=7 class="hback"><input name="SaveFiles" type="checkbox" value="1" <%If SaveFiles=1 Then response.write "checked"%>>
保存图片
<input name="CollecOrder" type="checkbox" value="1" <%If CollecOrder=1 Then response.write "checked"%>>
倒序采集</td>
</tr>
<tr>
<td height=32 align="right" class="hback">过滤选项：</td>
<td height=16 class="hback"><input name="Script_Iframe2" type="checkbox" value="1">
Iframe
<input name="Script_Object" type="checkbox" value="1" <%If Script_Object=1 Then response.write "checked"%>>
Object
<input name="Script_Script" type="checkbox" value="1" <%If Script_Script=1 Then response.write "checked"%>>
Script
<input name="Script_Div" type="checkbox" value="1" <%If Script_Div=1 Then response.write "checked"%>>
Div
<input name="Script_Class" type="checkbox" value="1" <%If Script_Class=1 Then response.write "checked"%>>
Class
<input name="Script_Table" type="checkbox" value="1" <%If Script_Table=1 Then response.write "checked"%>>
Table
<input name="Script_Tr" type="checkbox" value="1" <%If Script_Tr=1 Then response.write "checked"%>>
Tr
<input name="Script_Span" type="checkbox" value="1" <%If Script_Span=1 Then response.write "checked"%>>
Span<br>
<input name="Script_Img" type="checkbox" value="1" <%If Script_Img=1 Then response.write "checked"%>>
Img
<input name="Script_Font" type="checkbox" value="1" <%If Script_Font=1 Then response.write "checked"%>>
Font
<input name="Script_A" type="checkbox" value="1" <%If Script_A=1 Then response.write "checked"%>>
A
<input name="Script_Html" type="checkbox" value="1" <%If Script_Html=1 Then response.write "checked"%>>
Html
<input name="Script_Td" type="checkbox" value="1" <%If Script_Td=1 Then response.write "checked"%>>
Td </td>
</tr>
<tr>
<td height=32 align="right" class="hback">重复采集影片设置：</td>
<td height=7 class="hback"><input type="radio" value="0" name="RepeatCollect" <%If RepeatCollect=0 Then response.write "checked"%>>
和采集库比较不重复采集 <input type="radio" value="1" name="RepeatCollect" <%If RepeatCollect=1 Then response.write "checked"%>>
和影片库比较不重复采集</td>
</tr>
<tr>
<td height=32 colspan="2" align="center" class="hback"><input type="hidden" name="ID" id="ID" value="<%=ID%>"><input type="submit" name="Submit" value="下一步"></td>
</tr>
</tbody>
</form>
</table>
<script language="JavaScript">
ChangeCutPara(<%=ListPaingType%>);
function ChangeCutPara(Flag)
{
switch (Flag)
{
case 0 :
document.all.IndexCutPage.style.display='';
document.all.HandCutPage.style.display='none';
document.all.ListContent.style.display='none';
break;
case 1 :
document.all.IndexCutPage.style.display='none';
document.all.HandCutPage.style.display='';
document.all.ListContent.style.display='none';
document.getElementById("CutPageName").innerHTML='批量分页';
break;
case 2 :
document.all.IndexCutPage.style.display='none';
document.all.HandCutPage.style.display='none';
document.all.ListContent.style.display='';
break;
case 3 :
document.all.IndexCutPage.style.display='none';
document.all.HandCutPage.style.display='';
document.all.ListContent.style.display='none';
document.getElementById("CutPageName").innerHTML='按ID采集内容页';
break;
default :
document.all.IndexCutPage.style.display='none';
document.all.HandCutPage.style.display='none';
document.all.ListContent.style.display='none';
break;
}
}
</script>
<%end sub
sub Edit2()
Select Case Request.Form("ListPaingType")
Case 0
ListUrl=request("ListPaingStr")
Case 1,3
ListUrl=Replace(request.Form("ListPaingStr2"),"{$ID}",CStr(request.Form("ListPaingID1")))
Case 2
If Instr(request.Form("ListPaingStr3"),"|")>0 Then
ListUrl=Left(request.Form("ListPaingStr3"),Instr(request.Form("ListPaingStr3"),"|")-1)
Else
ListUrl=request.Form("ListPaingStr3")
End If
End Select
ListCode=GetHttpPage(ListUrl,Request.Form("selEncoding"))
If ListCode=False Then
call Admin_ShowErr("<li>在获取:"&ListUrl&"网页源码时发生错误！</li>","javascript:history.go(-1)",0)
End If
Session("ListUrl")=ListUrl
Session("selEncoding")=Request.Form("selEncoding")
Session("ListCode")=ListCode
Set Rs=Server.CreateObject(YWNT_TMS_RS)
sql="select * from Collect_Class Where ID="&Request.Form("ID")
Rs.open sql,Connx,1,3
RS("CollectName")=Request.Form("CollectName")
RS("selEncoding")=Request.Form("selEncoding")
RS("ListPaingType")=Request.Form("ListPaingType")
RS("ListPaingStr")=Request.Form("ListPaingStr")
RS("ListPaingStr2")=Request.Form("ListPaingStr2")
RS("ListPaingID1")=Request.Form("ListPaingID1")
RS("ListPaingID2")=Request.Form("ListPaingID2")
RS("ListPaingStr3")=Request.Form("ListPaingStr3")
RS("Script_Iframe")=Request.Form("Script_Iframe")
RS("Script_Object")=Request.Form("Script_Object")
RS("Script_Script")=Request.Form("Script_Script")
RS("Script_Div")=Request.Form("Script_Div")
RS("Script_Class")=Request.Form("Script_Class")
RS("Script_Table")=Request.Form("Script_Table")
RS("Script_Tr")=Request.Form("Script_Tr")
RS("Script_Span")=Request.Form("Script_Span")
RS("Script_Img")=Request.Form("Script_Img")
RS("Script_Font")=Request.Form("Script_Font")
RS("Script_A")=Request.Form("Script_A")
RS("Script_Html")=Request.Form("Script_Html")
RS("Script_Td")=Request.Form("Script_Td")
RS("SaveFiles")=Request.Form("SaveFiles")
RS("CollecOrder")=Request.Form("CollecOrder")
RS("RepeatCollect")=Request.Form("RepeatCollect")
RS.Update
ID=RS("ID")
LsString=RS("LsString")
LoString=RS("LoString")
HsString=RS("HsString")
HoString=RS("HoString")
RS.close
set RS=nothing
if Request.Form("ListPaingType")=3 then
Response.Redirect"Admin_Collect.asp?Action=Edit3&ListPaingType="&Request.Form("ListPaingType")&"&ID="&ID
Response.end()
end if%>
<table class=table cellspacing=1 cellpadding=3 width="98%" align=center border=0>
<form name="Form" action="Admin_Collect.asp?Action=Edit3" method="post">
<tbody>
<tr>
<td colspan="2" class=xingmu>采集列表连接设置</td>
</tr>
<tr>
<td width="21%" height=32 align="right" class="hback">影片列表开始代码：</td>
<td height=7 class="hback"> 输入区域： <span onClick="if(document.Form.LsString.rows>2)document.Form.LsString.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.LsString.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
<textarea name="LsString" cols="70" rows="7"><%=LsString%></textarea></td>
</tr>
<tr>
<td height=32 align="right" class="hback">影片列表结束代码：</td>
<td height=7 class="hback"> 输入区域： <span onClick="if(document.Form.LoString.rows>2)document.Form.LoString.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.LoString.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
<textarea name="LoString" cols="70" rows="7"><%=LoString%></textarea></td>
</tr>
<tr>
<td height=32 align="right" class="hback">影片链接开始代码：</td>
<td height=32 class="hback"> 输入区域： <span onClick="if(document.Form.HsString.rows>2)document.Form.HsString.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.HsString.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
<textarea name="HsString" cols="70" rows="7"><%=HsString%></textarea></td>
</tr>
<tr>
<td height=32 align="right" class="hback">影片链接结束代码：</td>
<td height=7 class="hback"> 输入区域： <span onClick="if(document.Form.HoString.rows>2)document.Form.HoString.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.HoString.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
<textarea name="HoString" cols="70" rows="7"><%=HoString%></textarea></td>
</tr>
<tr>
<td height=32 colspan="2" align="center" class="hback"><input type="hidden" name="ID" id="ID" value="<%=ID%>">
<input type="button" name="button" value="上一步" onClick="window.location.href='javascript:history.go(-1)'">
<input name="Submit" type="submit" id="Submit" value="下一步"></td>
</tr>
</tbody>
</form>
</table>
<%end sub
sub Edit3()
if Request.QueryString("ListPaingType")<>"" then
Session("NewsCode")=Session("ListCode")
else
ListCode=GetBody(Session("ListCode"),request.Form("LsString"),request.Form("LoString"))
NewsArrayCode=GetArray(ListCode,request.Form("HsString"),request.Form("HoString"))
Select Case NewsArrayCode
Case False
call Admin_ShowErr("<li>在获取链接列表时出错。</li>","javascript:history.go(-1)",0)
Case Else
NewsArray=Split(NewsArrayCode,"$Array$")
UrlTest=NewsArray(0)
UrlTest=DefiniteUrl(UrlTest,Session("ListUrl"))
NewsCode=GetHttpPage(UrlTest,Session("selEncoding"))
Session("NewsCode")=NewsCode
Session("ListUrl")=UrlTest
End Select
end if
Set Rs=Server.CreateObject(YWNT_TMS_RS)
sql="select * from Collect_Class Where ID="&Request("ID")&""
Rs.open sql,Connx,1,3
RS("LsString")=Request.Form("LsString")
RS("LoString")=Request.Form("LoString")
RS("HsString")=Request.Form("HsString")
RS("HoString")=Request.Form("HoString")
RS.Update
ID=RS("ID")
Htitle=RS("Htitle")
Ftitle=RS("Ftitle")
Hname=RS("Hname")
Fname=RS("Fname")
Htupian=RS("Htupian")
Ftupian=RS("Ftupian")
RegionType=RS("RegionType")
CollectRegion=RS("CollectRegion")
HRegion=RS("HRegion")
FRegion=RS("FRegion")
ClassType=RS("ClassType")
CollectClass=RS("CollectClass")
HClass=RS("HClass")
FClass=RS("FClass")
Hcontent=RS("Hcontent")
Fcontent=RS("Fcontent")
ScopeOn=RS("ScopeOn")
Hscope=RS("Hscope")
Fscope=RS("Fscope")
Hweburl=RS("Hweburl")
Fweburl=RS("Fweburl")
urlType=RS("urlType")
Rurl=RS("Rurl")
Reurl=RS("Reurl")
Hpurl=RS("Hpurl")
Fpurl=RS("Fpurl")
RS.close
set RS=nothing%>
<table class=table cellspacing=1 cellpadding=3 width="98%" align=center border=0>
<form name="Form" action="Admin_Collect.asp?Action=Add4" method="post">
<tbody>
<tr>
<td colspan="2" class=xingmu>采集内容与影片地址设置</td>
</tr>
<tr>
<td width="21%" height=32 align="right" class="hback">影片名称开始代码：</td>
<td height=7 class="hback"> 输入区域： <span onClick="if(document.Form.Htitle.rows>2)document.Form.Htitle.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.Htitle.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
<textarea name="Htitle" cols="70" rows="7" id="Htitle"><%=Htitle%></textarea></td>
</tr>
<tr>
<td height=32 align="right" class="hback">影片名称结束代码：</td>
<td height=7 class="hback"> 输入区域： <span onClick="if(document.Form.Ftitle.rows>2)document.Form.Ftitle.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.Ftitle.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
<textarea name="Ftitle" cols="70" rows="7" id="Ftitle"><%=Ftitle%></textarea></td>
</tr>
<tr>
<td height=32 align="right" class="hback">影片演员开始代码：</td>
<td height=32 class="hback"> 输入区域： <span onClick="if(document.Form.Hname.rows>2)document.Form.Hname.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.Hname.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
<textarea name="Hname" cols="70" rows="7" id="Hname"><%=Hname%></textarea></td>
</tr>
<tr>
<td height=32 align="right" class="hback">影片演员结束代码：</td>
<td height=7 class="hback"> 输入区域： <span onClick="if(document.Form.Fname.rows>2)document.Form.Fname.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.Fname.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
<textarea name="Fname" cols="70" rows="7" id="Fname"><%=Fname%></textarea></td>
</tr>
<tr>
<td height=32 align="right" class="hback">影片图片开始代码：</td>
<td height=7 class="hback"> 输入区域： <span onClick="if(document.Form.Htupian.rows>2)document.Form.Htupian.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.Htupian.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
<textarea name="Htupian" cols="70" rows="7" id="Htupian"><%=Htupian%></textarea></td>
</tr>
<tr>
<td height=32 align="right" class="hback">影片图片结束代码：</td>
<td height=7 class="hback"> 输入区域： <span onClick="if(document.Form.Ftupian.rows>2)document.Form.Ftupian.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.Ftupian.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
<textarea name="Ftupian" cols="70" rows="7" id="Ftupian"><%=Ftupian%></textarea></td>
</tr>
<tr>
<td height=32 align="right" class="hback">影片栏目设置：</td>
<td height=7 class="hback"><input type="radio" value="0" name="ClassType" onClick="ChangeCutPara(0,'CollectClassN','HClassN','FClassN');" <% if ClassType=0 then Response.Write "checked" %>>
固定栏目 <input type="radio" value="1" name="ClassType" onClick="ChangeCutPara(1,'CollectClassN','HClassN','FClassN');" <% if ClassType=1 then Response.Write "checked" %>>
按对应栏目自动转换</td>
</tr>
<tr id="CollectClassN">
<td height=32 align="right" class="hback">选择栏目：</td>
<td height=7 class="hback"><select name="CollectClass" id="CollectClass">
<%Response.Write EditClassID(0,"",CollectClass)%>
</select></td>
</tr>
<tr id="HClassN">
<td height=32 align="right" class="hback">影片栏目开始代码：</td>
<td height=7 class="hback"> 输入区域： <span onClick="if(document.Form.HClass.rows>2)document.Form.HClass.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.HClass.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
<textarea name="HClass" cols="70" rows="7" id="HClass"><%=HClass%></textarea></td>
</tr>
<tr id="FClassN">
<td height=32 align="right" class="hback">影片栏目结束代码：</td>
<td height=7 class="hback"> 输入区域： <span onClick="if(document.Form.FClass.rows>2)document.Form.FClass.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.FClass.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
<textarea name="FClass" cols="70" rows="7" id="FClass"><%=FClass%></textarea></td>
</tr>
<tr>
<td height=32 align="right" class="hback">影片地区设置：</td>
<td height=7 class="hback"><input type="radio" value="0" name="RegionType" onClick="ChangeCutPara(0,'CollectRegionN','HRegionN','FRegionN');" <% if RegionType=0 then Response.Write "checked" %>>
固定地区 <input type="radio" value="1" name="RegionType" onClick="ChangeCutPara(1,'CollectRegionN','HRegionN','FRegionN');" <% if RegionType=1 then Response.Write "checked" %>>
按对应地区自动转换</td>
</tr>
<tr id="CollectRegionN">
<td height=32 align="right" class="hback">选择地区：</td>
<td height=7 class="hback"><%call MovieRegion("CollectRegion",CollectRegion)%></td>
</tr>
<tr id="HRegionN">
<td height=32 align="right" class="hback">影片地区开始代码：</td>
<td height=7 class="hback"> 输入区域： <span onClick="if(document.Form.HRegion.rows>2)document.Form.HRegion.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.HRegion.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
<textarea name="HRegion" cols="70" rows="7" id="HRegion"><%=HRegion%></textarea></td>
</tr>
<tr id="FRegionN">
<td height=32 align="right" class="hback">影片地区结束代码：</td>
<td height=7 class="hback"> 输入区域： <span onClick="if(document.Form.FRegion.rows>2)document.Form.FRegion.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.FRegion.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
<textarea name="FRegion" cols="70" rows="7" id="FRegion"><%=FRegion%></textarea></td>
</tr>
<tr>
<td height=32 align="right" class="hback">影片介绍开始代码：</td>
<td height=7 class="hback"> 输入区域： <span onClick="if(document.Form.Hcontent.rows>2)document.Form.Hcontent.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.Hcontent.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
<textarea name="Hcontent" cols="70" rows="7" id="Hcontent"><%=Hcontent%></textarea></td>
</tr>
<tr>
<td height=32 align="right" class="hback">影片介绍结束代码：</td>
<td height=7 class="hback"> 输入区域： <span onClick="if(document.Form.Fcontent.rows>2)document.Form.Fcontent.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.Fcontent.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
<textarea name="Fcontent" cols="70" rows="7" id="Fcontent"><%=Fcontent%></textarea></td>
</tr>
<tr>
<td height=32 align="right" class="hback">影片列表范围：</td>
<td height=7 class="hback"><input type="radio" value="0" name="ScopeOn" onClick="ScopeN1.style.display='none';ScopeN2.style.display='none'" <% if ScopeOn=0 then Response.Write "checked" %>>
关闭 <input type="radio" value="1" name="ScopeOn" onClick="ScopeN1.style.display='';ScopeN2.style.display=''" <% if ScopeOn=1 then Response.Write "checked" %>>
开启</td>
</tr>
<tr id="ScopeN1" <% if ScopeOn<>1 then Response.Write "style=""display:none""" %>>
<td height=32 align="right" class="hback">播放列表开始代码：</td>
<td height=7 class="hback"> 输入区域： <span onClick="if(document.Form.Hscope.rows>2)document.Form.Hscope.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.Hscope.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
<textarea name="Hscope" cols="70" rows="7" id="Hscope"><%=Hscope%></textarea></td>
</tr>
<tr id="ScopeN2" <% if ScopeOn<>1 then Response.Write "style=""display:none""" %>>
<td height=32 align="right" class="hback">播放列表结束代码：</td>
<td height=7 class="hback"> 输入区域： <span onClick="if(document.Form.Fscope.rows>2)document.Form.Fscope.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.Fscope.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
<textarea name="Fscope" cols="70" rows="7" id="Fscope"><%=Fscope%></textarea></td>
</tr>
<tr>
<td height=32 align="right" class="hback">播放链接开始代码：</td>
<td height=7 class="hback"> 输入区域： <span onClick="if(document.Form.Hweburl.rows>2)document.Form.Hweburl.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.Hweburl.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
<textarea name="Hweburl" cols="70" rows="7" id="Hweburl"><%=Hweburl%></textarea></td>
</tr>
<tr>
<td height=32 align="right" class="hback">播放链接结束代码：</td>
<td height=7 class="hback"> 输入区域： <span onClick="if(document.Form.Fweburl.rows>2)document.Form.Fweburl.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.Fweburl.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
<textarea name="Fweburl" cols="70" rows="7" id="Fweburl"><%=Fweburl%></textarea></td>
</tr>
<tr>
<td height=32 align="right" class="hback">特殊播放链接处理：</td>
<td height=7 class="hback"><input type="radio" value="0" name="urlType" checked="checked" onClick="Listurl2.style.display='none';Listurl3.style.display='none'" <% if urlType=0 then Response.Write "checked"%>>
不作设置
<input type="radio" value="1" name="urlType" onClick="Listurl2.style.display='';Listurl3.style.display=''" <% if urlType=1 then Response.Write "checked"%>>
替换地址<br>
<font color="red">对于使用了JavaScript:openwindow形式的连接请使用以下格式处理:<br>
脚本连接:内容[变量] 内容 如:javaScript:OpenWnd([变量])<br>
实际连接:内容[变量] 内容 如:play.asp?id=[变量]</font></td>
</tr>
<tr id="Listurl2" <% if urlType<>1 then Response.Write "style=""display:none""" %>>
<td height=32 align="right" class="hback">要替换的地址：</td>
<td height=7 class="hback"> 输入区域： <span onClick="if(document.Form.Rurl.rows>2)document.Form.Rurl.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.Rurl.rows+=1" style='cursor:hand'><b>扩大</b></span> 可用标签：<font onmouseover="getActiveText(document.Form.Rurl);" onClick="addTag('[变量]')" style="CURSOR: hand"><b>[变量]</b></font>
<textarea name="Rurl" cols="70" rows="4" id="Rurl"><%=Rurl%></textarea></td>
</tr>
<tr id="Listurl3" <% if urlType<>1 then Response.Write "style=""display:none""" %>>
<td height=32 align="right" class="hback">替换为的地址：</td>
<td height=7 class="hback"> 输入区域： <span onClick="if(document.Form.Reurl.rows>2)document.Form.Reurl.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.Reurl.rows+=1" style='cursor:hand'><b>扩大</b></span> 可用标签：<font onmouseover="getActiveText(document.Form.Reurl);" onClick="addTag('[变量]')" style="CURSOR: hand"><b>[变量]</b></font>
<textarea name="Reurl" cols="70" rows="4" id="Reurl"><%=Reurl%></textarea></td>
</tr>
<tr>
<td height=32 align="right" class="hback">影片地址开始代码：</td>
<td height=7 class="hback"> 输入区域： <span onClick="if(document.Form.Hpurl.rows>2)document.Form.Hpurl.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.Hpurl.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
<textarea name="Hpurl" cols="70" rows="7" id="Hpurl"><%=Hpurl%></textarea></td>
</tr>
<tr>
<td height=32 align="right" class="hback">影片地址结束代码：</td>
<td height=7 class="hback"> 输入区域： <span onClick="if(document.Form.Fpurl.rows>2)document.Form.Fpurl.rows-=1" style='cursor:hand'><b>缩小</b></span> <span onClick="document.Form.Fpurl.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
<textarea name="Fpurl" cols="70" rows="7" id="Fpurl"><%=Fpurl%></textarea></td>
</tr>
<tr>
<td height=32 colspan="2" align="center" class="hback"><input name="button" type="button" id="button" onClick="window.location.href='javascript:history.go(-1)'" value="上一步">
<input type="hidden" name="ID" id="ID" value="<%=ID%>">
<input name="Submit" type="submit" id="Submit" value="下一步"></td>
</tr>
</tbody>
</form>
</table>
<script language="JavaScript">
ChangeCutPara(<%=ClassType%>,'CollectClassN','HClassN','FClassN');
ChangeCutPara(<%=RegionType%>,'CollectRegionN','HRegionN','FRegionN');
function ChangeCutPara(Flag,name1,name2,name3)
{
switch (Flag)
{
case 0 :
document.getElementById(name1).style.display="block";
document.getElementById(name2).style.display="none";
document.getElementById(name3).style.display="none";
break;
case 1 :
document.getElementById(name1).style.display="none";
document.getElementById(name2).style.display="block";
document.getElementById(name3).style.display="block";
break;
default :
document.getElementById(name1).style.display="none";
document.getElementById(name2).style.display="none";
document.getElementById(name3).style.display="none";
break;
}
}
</script>
<%end sub
sub Copy()
Set RsCopy = Connx.Execute("Select * from Collect_Class where ID="&Request.QueryString("ID"))
if not RsCopy.eof then
Set Rs = Server.CreateObject(YWNT_TMS_RS)
Rs.Open "Select * from Collect_Class",Connx,1,3
Rs.AddNew
For Each Filed In Rs.Fields
if LCase(Filed.name) <> "id" then
if LCase(Filed.name) = "collectname" then
Rs(Filed.name) = RsCopy(Filed.name)&"-[复制]"
else
Rs(Filed.name) = RsCopy(Filed.name)
end if
end if
Next
Rs.Update
Rs.MoveNext
Set Rs= Nothing
end if
Set RsCopy = Nothing
Call AddLog("复制采集栏目",9)
call Admin_ShowErr("<li>复制采集栏目成功！</li>","Admin_Collect.asp",1)
end sub%>
<script language="JavaScript">
currObj = "uuuu";
function getActiveText(obj)
{
obj.focus();
currObj = obj;
}
function addTag(ibTag)
{
var isClose = false;
var obj_ta = currObj;
if (obj_ta.isTextEdit)
{
obj_ta.focus();
var sel = document.selection;
var rng = sel.createRange();
rng.colapse;
if((sel.type == "Text" || sel.type == "None") && rng != null)
{
rng.text = ibTag;
}
obj_ta.focus();
return isClose;
}
else return false;
}
</script>
<%call connxclose()%>
</BODY></HTML>